unit sitios;

interface

uses classes;

type
  TSitio = class
  private
    FLongitud: double;
    FActivo: Boolean;
    FLatitud: double;
    FNombre: string;
    FAltitud: Double;
    FDescripcion: TStringList;
    procedure SetActivo(const Value: Boolean);
    procedure SetLatitud(const Value: double);
    procedure SetLongitud(const Value: double);
    procedure SetNombre(const Value: string);
    procedure SetAltitud(const Value: Double);
    procedure SetDescripcion(const Value: TStringList);
  public
    constructor create; overload;
    property Nombre: string read FNombre write SetNombre;
    property Latitud: double read FLatitud write SetLatitud;
    property Longitud: double read FLongitud write SetLongitud;
    property Activo: Boolean read FActivo write SetActivo;
    property Altitud: Double read FAltitud write SetAltitud;
    property Descripcion: TStringList read FDescripcion write SetDescripcion;
  end;

  TSitios = class(tlist);

implementation

{ TSitio }

constructor TSitio.create;
begin
  Activo := true;
  Nombre := 'Nuevo sitio';
  Latitud := 0;
  Longitud := 0;
  descripcion := tstringlist.Create ;
end;

procedure TSitio.SetActivo(const Value: Boolean);
begin
  FActivo := Value;
end;

procedure TSitio.SetAltitud(const Value: Double);
begin
  FAltitud := Value;
end;

procedure TSitio.SetDescripcion(const Value: TStringList);
begin
  FDescripcion := Value;
end;

procedure TSitio.SetLatitud(const Value: double);
begin
  FLatitud := Value;
end;

procedure TSitio.SetLongitud(const Value: double);
begin
  FLongitud := Value;
end;

procedure TSitio.SetNombre(const Value: string);
begin
  FNombre := Value;
end;

end.
